﻿Imports System
Imports System.Workflow.ComponentModel

Namespace System.Workflow.Runtime
    Public Class WorkflowTerminatedEventArgs
        Inherits WorkflowEventArgs
        ' Methods
        Friend Sub New(ByVal instance As WorkflowInstance, ByVal e As Exception)
            MyBase.New(instance)
            Me.exception = e
        End Sub

        Friend Sub New(ByVal instance As WorkflowInstance, ByVal [error] As String)
            MyBase.New(instance)
            Me.exception = New WorkflowTerminatedException([error])
        End Sub


        ' Properties
        Public ReadOnly Property Exception As Exception
            Get
                Return Me.exception
            End Get
        End Property


        ' Fields
        Private exception As Exception
    End Class
End Namespace

